home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / game / patch / maniachd.lha / maniac mansion / Install_ManiacMansion next >
Text File  |  1998-03-01  |  2KB  |  87 lines
  1. ; $VER: ManiacMansion HD Install-Script V1.0 (01/1998) by Jeroen Borgmeyer
  2.  
  3. (set GameDir @app-name)
  4.  
  5. ;try to figure out a place where the user usually installs his games
  6. (if (exists "Games:" (noreq) )
  7.     (set @default-dest "Games:")
  8.     (if (exists "SYS:Games" (noreq) )
  9.         (set @default-dest "SYS:Games")
  10.         (if (exists "Work:Games" (noreq) )
  11.             (set @default-dest "Work:Games")
  12.             (if (exists "JEUX:" (noreq) )
  13.                (set @default-dest "JEUX:")
  14.                (set @default-dest "SYS:")
  15.             )
  16.         )
  17.     )
  18. )
  19.  
  20.  
  21. ;ask the user to select a directory to install the game into
  22. (set default-dest
  23.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  24.                              "A drawer called " GameDir " will be created.")
  25.                      (help @askdir-help)
  26.                      (default @default-dest)
  27.                      (newpath)
  28.              )
  29.      GameDir
  30.      )
  31. )
  32. (set @default-dest default-dest)
  33.  
  34. ;create the selected directory
  35. (makedir @default-dest
  36.          (infos)
  37. )
  38.  
  39. ;copy all extra files to the destination directory
  40. (copyfiles (source "ManiacMansionHD.readme")
  41.            (dest @default-dest)
  42.            (all)
  43.            (infos) 
  44. )
  45.  
  46.  
  47. (askdisk
  48.     (prompt "\n\n\n\n\n\nPlease insert Maniac Mansion Disk 1 in any drive")
  49.     (dest    "Maniac Disk 1")
  50.     (help    "Insert Maniac Mansion disk 1 please!")
  51. )
  52.  
  53. (copyfiles (source "Maniac Disk 1:")
  54.            (dest @default-dest)
  55.        (files)
  56.            (infos)
  57.        (pattern "#?")
  58. )
  59.  
  60. (askdisk
  61.     (prompt "\n\n\n\n\n\nPlease insert Maniac Mansion Disk 2 in any drive")
  62.     (dest    "Maniac Disk 2")
  63.     (help    "Insert Maniac Mansion disk 2 please!")
  64. )
  65.  
  66. (copyfiles (source "Maniac Disk 2:")
  67.            (dest @default-dest)
  68.        (files)
  69.        (pattern "#?")
  70. )
  71.  
  72. ;copying the contents of the Rooms directory from disk1 and 2
  73.  
  74. (makedir ("%s/Rooms" @default-dest))
  75.  
  76. (copyfiles (source "Maniac Disk 1:Rooms")
  77.                    (dest ("%s/Rooms" @default-dest))
  78.            (all)
  79. )
  80.  
  81. (copyfiles (source "Maniac Disk 2:Rooms")
  82.                    (dest ("%s/Rooms" @default-dest))
  83.            (all)
  84. )
  85.  
  86. (delete (tackon @default-dest "disk.info")
  87. )